setdisplay(320,240,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
while 0=0
   cls:pen(0xBF0000)
     locate (1,10):prints("pen(0xBF0000)")
     for i=0 to 99:waitvbl:if key(27)<>0 then:end:end if:next
   cls:pen(rgb(0,127,0))
     locate (1,10):prints("pen(rgb(0,127,0))")
     for i=0 to 99:waitvbl:if key(27)<>0 then:end:end if:next
   cls:pen(239)
     locate (1,10):prints("pen(239)")
     for i=0 to 99:waitvbl:if key(27)<>0 then:end:end if:next
 wend